home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / execty.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  1KB  |  32 lines
  1. /*****************************************************************************
  2.  
  3.     ExeCtY()
  4.  
  5.     This function executes a control-Y command.
  6.  
  7.     ^Y    <CTRL/Y> (caret/Y) is equivalent to ".+^S,.", the n,m
  8.         numeric argument spanning the text just searched for or
  9.         inserted.  This value may be used to recover from
  10.         inserting a string in the wrong place.  Type "^YXSFR`"
  11.         to store the string in Q-register S and remove it from
  12.         the buffer.  You can then position the pointer to the
  13.         right place and type "GS" to insert the string.
  14.         [TECO-11 only]
  15.  
  16. *****************************************************************************/
  17.  
  18. #include "zport.h"        /* define portability identifiers */
  19. #include "tecoc.h"        /* define general identifiers */
  20. #include "defext.h"        /* define external global variables */
  21.  
  22. DEFAULT ExeCtY()        /* execute ^Y command */
  23. {
  24.     DBGFEN(1,"ExeCtY",NULL);
  25.  
  26.     MArgmt = (GapBeg-EBfBeg) + RefLen;    /* set m part of m,n pair */
  27.     CmdMod |= MARGIS;            /* say that m part exists */
  28.  
  29.     DBGFEX(1,DbgFNm,"PushEx()");
  30.     return PushEx((LONG)(GapBeg-EBfBeg), OPERAND); /* push n part */
  31. }
  32.